perm filename P65[HHA,LCS] blob sn#433811 filedate 1979-04-18 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00003 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	. DEVICE XGP    
C00004 00003	.CENTER
C00006 ENDMK
C⊗;
. DEVICE XGP    
.spacing 10*5 mills;
.EVERY HEADING(,{PAGE},)
.AREA TEXT LINES 4 TO 40
.FONT 1 "METL"
.font 2 "METLI"
.font 3 "METS"
.font 4 "MUS[HHA,LCS]"
.FONT 5 "BASL35"
.!XGPLFTMAR←284
.PORTION MAIN;
.PLACE TEXT;
.COMPACT
.PAGE←64
.NEXT PAGE
.<< Put in a footnote. >>
.
.COUNT FOOTNOTE INLINE FROM 1 TO 999 IN PAGE PRINTING ⊂"*****"[1 TO FOOTNOTE]⊃
.<<	(IF THISDEVICE = "XGP" THEN "%51%*" ELSE "[1]");>>
.
.FOOTSEP ← "__________";
.AT "$$" ENTRY "$"
.	⊂
.	NEXT FOOTNOTE;
.	FOOTNOTE!;
.	SEND FOOT
.		⊂
.		BEGIN "NEXT FOOTNOTE"
.		SELECT 1;
.		SINGLE SPACE
.		SPACING 0 MILLS
.		INDENT 0,0,0;
.		(FOOTNOTE! & " ");
ENTRY
.		END "NEXT FOOTNOTE";
.		⊃;
.	⊃;
.
.TURN ON "%↓_↑↓[&]","α"
.CENTER
%5⊂⊗⊃L[0,α%-.75]:64XB.PLT[HHA,LCS]⊂⊗⊃%1
.SKIP 4
.BEGIN VERBATIM
Figure 64a.  Bach, Invention No.4 in d (bars 7-45).

.END
.CENTER
%5⊂⊗⊃L[α%-.05,α%-3.2]:64FA.PLT[HHA,LCS]⊂⊗⊃%1
.SKIP 14
.FILL INDENT 6

	The location of the pivot (at +) is arbitrary, because the
following twelve bars are based on the descending form of the ↓_d_↓
scale -- which is identical with the ↓_F_↓ scale.  If it seems necessary
to specify the dual function of such progressions, the following method
is suggested.  The %2retrospective%1 functions in ↓_F_↓ are circled to
keep them distinct from the earlier perceived ↓_d_↓ functions.
.begin verbatim

Figure 64b
.end
.CENTER
%5⊂⊗⊃L[α%-.2,α%-1.5]:64FB.PLT[HHA,LCS]⊂⊗⊃%1